home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / mac / media / dirs / BackUp / code.cst / 00010_Script_ctrlobj < prev    next >
Text File  |  2002-10-15  |  1KB  |  49 lines
  1. property test,history,user_info,userinfo
  2.  
  3. on new me
  4.   test=""
  5.   history=[]
  6.   userinfo=[#fname:"",#lname:"",#address:"",#city:"",#state:"",#zip:"",#age:""]
  7.   return(me)
  8. end
  9.  
  10. on goto me,mov,frm,aux
  11.   puppetsound 1,0
  12.   puppetsound 2,0
  13.   c=history.count
  14.   if c>0 then
  15.     if history[c].movie="login" then set_info(me)
  16.   end if
  17.   fl=frm.length
  18.   ml=mov.length
  19.   case TRUE of
  20.     (fl>0 and ml>0):go frame frm of movie mov
  21.     (fl>0 and ml=0):go frame frm
  22.     (fl=0 and ml>0):go movie mov
  23.   end case
  24.   ntry=[#movie:mov,#frame:frm,#aux:aux]
  25.   history.add(ntry)
  26.   if history.count>25 then history.deleteat(1)
  27. end
  28.  
  29. on set_info me
  30.   userinfo.fname=member("First Name").text
  31.   userinfo.lname=member("Last Name").text
  32.   userinfo.address=member("Address").text
  33.   userinfo.city=member("City").text
  34.   userinfo.State=member("State").text
  35.   userinfo.zip=member("Zip Code").text
  36.   userinfo.age=member("Age").text
  37. end
  38.  
  39. on previous_link me
  40.   c=history.count
  41.   cm=history[c-1]
  42.   history.deleteat(c)
  43.   history.deleteat(c-1)
  44.   goto(me,cm[1],cm[2],cm[3])
  45. end
  46.  
  47.  
  48.   
  49.